procedure MirrorControl(AControl: TWinControl; ARightToLeft: Boolean);
var
  OldLong: Longword;
begin
  OldLong := GetWindowLong(AControl.Handle, GWL_EXSTYLE);
  if ARightToLeft then
  begin
    AControl.BiDiMode := bdLeftToRight;
    SetWindowLong(AControl.Handle, GWL_EXSTYLE, OldLong or $00400000);
  end
  else
    SetWindowLong(AControl.Handle, GWL_EXSTYLE, OldLong and not $00400000);
  AControl.Repaint;
end;
